home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / qbfaqr01.zip / DISKEYB.BAS < prev    next >
BASIC Source File  |  1992-08-09  |  340b  |  18 lines
  1. SUB DisableKeyboard ()
  2.    
  3.    'Purpose : To disable the keyboard
  4.    'Input   : none
  5.    'Return  : none
  6.  
  7.    OUT &H21, (INP(&H21) OR 2)
  8. END SUB
  9.  
  10. SUB EnableKeyboard ()
  11.  
  12.    'Purpose : To enable keyboard use after being disabled by DisableKeyboard
  13.    'Input   : none
  14.    'Output  : none
  15.  
  16.    OUT &H21, (INP(&H21) AND 253)
  17. END SUB
  18.